home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_64481.txt < prev    next >
Text File  |  1990-08-14  |  9KB  |  516 lines
  1. -- card: 64481 from stack: in
  2. -- bmap block id: 95522
  3. -- flags: 4000
  4. -- background id: 19276
  5. -- name: Attendance & Marks
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global buttonNumber
  9.   put char 1 to 3 of the long date & "," & item 2 to 3 of the abbrev date into background field date
  10.   set hilite of background button buttonNumber to false
  11. end openCard
  12.  
  13. on closeCard
  14.   global buttonNumber
  15.   set hilite of background button buttonNumber to true
  16. end closeCard
  17.  
  18. on resetCard
  19.   set hilite of card button id 8 to false
  20.   set hilite of card button id 9 to false
  21.   set hilite of card button id 10 to false
  22.   set hilite of card button id 11 to false
  23.   set hilite of card button id 12 to false
  24.   put "GPA" into card field "GPA"
  25.   put "0.000" into card field id 14
  26.   put "0.000" into card field id 15
  27.   put "1.000" into card field id 16
  28.   put "0" into card field id 17
  29.   put "0.0" into card field id 18
  30.   put "0" into card field id 19
  31. end resetCard
  32.  
  33.  
  34.  
  35. -- part 1 (button)
  36. -- low flags: 00
  37. -- high flags: 0000
  38. -- rect: left=0 top=0 right=342 bottom=512
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 0 / 0
  41. -- text alignment: 1
  42. -- font id: 0
  43. -- text size: 12
  44. -- style flags: 0
  45. -- line height: 16
  46. -- part name: 
  47.  
  48.  
  49. -- part 2 (button)
  50. -- low flags: 00
  51. -- high flags: 0000
  52. -- rect: left=52 top=31 right=48 bottom=242
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 0 / 0
  55. -- text alignment: 1
  56. -- font id: 0
  57. -- text size: 12
  58. -- style flags: 0
  59. -- line height: 16
  60. -- part name: Students & Courses
  61. ----- HyperTalk script -----
  62. on mouseUp
  63.   lock screen
  64.   resetCard
  65.   go to card short name of me of this background
  66.   unlock screen
  67. end mouseUp
  68.  
  69.  
  70.  
  71. -- part 3 (button)
  72. -- low flags: 00
  73. -- high flags: 2000
  74. -- rect: left=41 top=307 right=325 bottom=107
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 0 / 0
  77. -- text alignment: 1
  78. -- font id: 0
  79. -- text size: 12
  80. -- style flags: 0
  81. -- line height: 16
  82. -- part name: OK
  83. ----- HyperTalk script -----
  84. on mouseUp
  85.   lock screen
  86.   resetCard
  87.   pop card
  88.   unlock screen
  89. end mouseUp
  90.  
  91.  
  92.  
  93. -- part 4 (button)
  94. -- low flags: 00
  95. -- high flags: 2000
  96. -- rect: left=119 top=307 right=325 bottom=185
  97. -- title width / last selected line: 0
  98. -- icon id / first selected line: 0 / 0
  99. -- text alignment: 1
  100. -- font id: 0
  101. -- text size: 12
  102. -- style flags: 0
  103. -- line height: 16
  104. -- part name: Cancel
  105. ----- HyperTalk script -----
  106. on mouseUp
  107.   lock screen
  108.   resetCard
  109.   pop card
  110.   unlock screen
  111. end mouseUp
  112.  
  113.  
  114.  
  115. -- part 5 (button)
  116. -- low flags: 00
  117. -- high flags: 2000
  118. -- rect: left=197 top=307 right=325 bottom=263
  119. -- title width / last selected line: 0
  120. -- icon id / first selected line: 0 / 0
  121. -- text alignment: 1
  122. -- font id: 0
  123. -- text size: 12
  124. -- style flags: 0
  125. -- line height: 16
  126. -- part name: Prefs…
  127. ----- HyperTalk script -----
  128. on mouseUp
  129.   lock screen
  130.   push card
  131.   go to card short name of me of this background
  132.   unlock screen
  133. end mouseUp
  134.  
  135.  
  136.  
  137. -- part 6 (button)
  138. -- low flags: 00
  139. -- high flags: 2000
  140. -- rect: left=275 top=307 right=325 bottom=341
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 0 / 0
  143. -- text alignment: 1
  144. -- font id: 0
  145. -- text size: 12
  146. -- style flags: 0
  147. -- line height: 16
  148. -- part name: Clear…
  149. ----- HyperTalk script -----
  150. on mouseUp
  151.   lock screen
  152.   resetCard
  153.   unlock screen
  154. end mouseUp
  155.  
  156.  
  157.  
  158. -- part 7 (button)
  159. -- low flags: 00
  160. -- high flags: 2000
  161. -- rect: left=353 top=307 right=325 bottom=469
  162. -- title width / last selected line: 0
  163. -- icon id / first selected line: 0 / 0
  164. -- text alignment: 1
  165. -- font id: 0
  166. -- text size: 12
  167. -- style flags: 0
  168. -- line height: 16
  169. -- part name: Points & Credits
  170.  
  171.  
  172. -- part 8 (button)
  173. -- low flags: 00
  174. -- high flags: A005
  175. -- rect: left=89 top=204 right=220 bottom=244
  176. -- title width / last selected line: 0
  177. -- icon id / first selected line: 0 / 0
  178. -- text alignment: 1
  179. -- font id: 0
  180. -- text size: 12
  181. -- style flags: 0
  182. -- line height: 16
  183. -- part name: Attendance criteria
  184.  
  185.  
  186. -- part 9 (button)
  187. -- low flags: 00
  188. -- high flags: A005
  189. -- rect: left=318 top=146 right=162 bottom=419
  190. -- title width / last selected line: 0
  191. -- icon id / first selected line: 0 / 0
  192. -- text alignment: 1
  193. -- font id: 0
  194. -- text size: 12
  195. -- style flags: 0
  196. -- line height: 16
  197. -- part name: Any course.
  198.  
  199.  
  200. -- part 10 (button)
  201. -- low flags: 00
  202. -- high flags: A005
  203. -- rect: left=318 top=172 right=188 bottom=457
  204. -- title width / last selected line: 0
  205. -- icon id / first selected line: 0 / 0
  206. -- text alignment: 1
  207. -- font id: 0
  208. -- text size: 12
  209. -- style flags: 0
  210. -- line height: 16
  211. -- part name: Selected courses.
  212.  
  213.  
  214. -- part 11 (button)
  215. -- low flags: 00
  216. -- high flags: 8006
  217. -- rect: left=318 top=235 right=251 bottom=408
  218. -- title width / last selected line: 0
  219. -- icon id / first selected line: 0 / 0
  220. -- text alignment: 1
  221. -- font id: 0
  222. -- text size: 12
  223. -- style flags: 0
  224. -- line height: 16
  225. -- part name: All marks.
  226. ----- HyperTalk script -----
  227. on mouseUp
  228.   set hilite of card button "Best" to false
  229.   set hilite of me to true
  230. end mouseUp
  231.  
  232.  
  233.  
  234. -- part 12 (button)
  235. -- low flags: 00
  236. -- high flags: 8006
  237. -- rect: left=318 top=262 right=278 bottom=371
  238. -- title width / last selected line: 0
  239. -- icon id / first selected line: 0 / 0
  240. -- text alignment: 1
  241. -- font id: 0
  242. -- text size: 12
  243. -- style flags: 0
  244. -- line height: 16
  245. -- part name: Best
  246. ----- HyperTalk script -----
  247. on mouseUp
  248.   set hilite of card button "All marks." to false
  249.   set hilite of me to true
  250. end mouseUp
  251.  
  252.  
  253.  
  254. -- part 13 (field)
  255. -- low flags: 01
  256. -- high flags: 0000
  257. -- rect: left=55 top=145 right=161 bottom=133
  258. -- title width / last selected line: 0
  259. -- icon id / first selected line: 0 / 0
  260. -- text alignment: 0
  261. -- font id: 3
  262. -- text size: 10
  263. -- style flags: 0
  264. -- line height: 14
  265. -- part name: GPA
  266.  
  267.  
  268. -- part 14 (field)
  269. -- low flags: 00
  270. -- high flags: 0000
  271. -- rect: left=181 top=144 right=164 bottom=225
  272. -- title width / last selected line: 0
  273. -- icon id / first selected line: 0 / 0
  274. -- text alignment: 0
  275. -- font id: 0
  276. -- text size: 12
  277. -- style flags: 0
  278. -- line height: 18
  279. -- part name: 
  280.  
  281.  
  282. -- part 15 (field)
  283. -- low flags: 00
  284. -- high flags: 0000
  285. -- rect: left=248 top=144 right=164 bottom=292
  286. -- title width / last selected line: 0
  287. -- icon id / first selected line: 0 / 0
  288. -- text alignment: 0
  289. -- font id: 0
  290. -- text size: 12
  291. -- style flags: 0
  292. -- line height: 18
  293. -- part name: 
  294.  
  295.  
  296. -- part 16 (field)
  297. -- low flags: 00
  298. -- high flags: 0000
  299. -- rect: left=181 top=170 right=190 bottom=225
  300. -- title width / last selected line: 0
  301. -- icon id / first selected line: 0 / 0
  302. -- text alignment: 0
  303. -- font id: 0
  304. -- text size: 12
  305. -- style flags: 0
  306. -- line height: 18
  307. -- part name: 
  308.  
  309.  
  310. -- part 17 (field)
  311. -- low flags: 00
  312. -- high flags: 0000
  313. -- rect: left=177 top=233 right=253 bottom=218
  314. -- title width / last selected line: 0
  315. -- icon id / first selected line: 0 / 0
  316. -- text alignment: 0
  317. -- font id: 0
  318. -- text size: 12
  319. -- style flags: 0
  320. -- line height: 18
  321. -- part name: 
  322.  
  323.  
  324. -- part 18 (field)
  325. -- low flags: 00
  326. -- high flags: 0000
  327. -- rect: left=190 top=260 right=280 bottom=231
  328. -- title width / last selected line: 0
  329. -- icon id / first selected line: 0 / 0
  330. -- text alignment: 0
  331. -- font id: 0
  332. -- text size: 12
  333. -- style flags: 0
  334. -- line height: 18
  335. -- part name: 
  336.  
  337.  
  338. -- part 19 (field)
  339. -- low flags: 00
  340. -- high flags: 0000
  341. -- rect: left=373 top=260 right=280 bottom=403
  342. -- title width / last selected line: 0
  343. -- icon id / first selected line: 0 / 0
  344. -- text alignment: 0
  345. -- font id: 0
  346. -- text size: 12
  347. -- style flags: 0
  348. -- line height: 18
  349. -- part name: 
  350.  
  351.  
  352. -- part 20 (button)
  353. -- low flags: 00
  354. -- high flags: 0000
  355. -- rect: left=46 top=145 right=161 bottom=133
  356. -- title width / last selected line: 0
  357. -- icon id / first selected line: 0 / 0
  358. -- text alignment: 1
  359. -- font id: 0
  360. -- text size: 12
  361. -- style flags: 0
  362. -- line height: 16
  363. -- part name: 
  364. ----- HyperTalk script -----
  365. on mouseDown
  366.   global checkLoc8
  367.   get the rect of me
  368.   put item 1 of it into horz
  369.   put item 2 of it into vert
  370.   put "GPA,GPA x P. Cred.,Percent" into menuList
  371.   set hilite of me to true
  372.   put PopUpMenu(menuList,vert,horz,checkLoc8) into temp
  373.   if temp > 0 then
  374.     put item temp of menuList into card field "GPA"
  375.     put temp into checkLoc8
  376.   end if
  377.   set hilite of me to false
  378. end mouseDown
  379.  
  380.  
  381.  
  382. -- part contents for background part 3
  383. ----- text -----
  384. 47
  385. 80
  386. 53
  387. 54
  388. 52
  389. 102
  390. 48
  391. 13
  392. 94
  393. 93
  394. 103
  395. 104
  396. 44
  397.  
  398.  
  399.  
  400.  
  401.  
  402. -- part contents for background part 4
  403. ----- text -----
  404. Abrosimoff, Michael John
  405. Adams, Bryan
  406. Alexander, Rick
  407. Alexander, Susan
  408. Allsop, Blair M.
  409. Azimov, Isaac
  410. Barisoff, Larissa
  411. Bunyan, Paul
  412. Burnyeat, Grant
  413. Caldwell, Brian
  414. Chalk, Patricia
  415. Collins, Bob
  416. Conkin, Elizabeth
  417.  
  418. -- part contents for background part 5
  419. ----- text -----
  420. 112
  421. 112
  422. 112
  423. 112
  424. 112
  425. N/A
  426. 112
  427. 112
  428. 112
  429. 112
  430. N/A
  431. N/A
  432. 112
  433.  
  434. -- part contents for background part 6
  435. ----- text -----
  436. 12
  437. 12
  438. 12
  439. 12
  440. 12
  441. 11
  442. 12
  443. 12
  444. 12
  445. 12
  446. 11
  447. 11
  448. 12
  449.  
  450. -- part contents for background part 7
  451. ----- text -----
  452. 0.000
  453. 0.000
  454. 0.000
  455. 0.000
  456. 0.000
  457. 1.000
  458. 0.000
  459. 0.000
  460. 0.000
  461. 0.000
  462. 0.000
  463. 0.000
  464. 0.000
  465.  
  466. -- part contents for background part 8
  467. ----- text -----
  468. 1
  469. 1
  470. 1
  471. 1
  472. 1
  473. 1
  474. 1
  475. 1
  476. 1
  477. 1
  478. 7
  479. 7
  480. 1
  481.  
  482. -- part contents for background part 1
  483. ----- text -----
  484. 99 Students
  485.  
  486. -- part contents for background part 2
  487. ----- text -----
  488. Mon, Aug 28, 1989
  489.  
  490. -- part contents for card part 13
  491. ----- text -----
  492. GPA
  493.  
  494. -- part contents for card part 14
  495. ----- text -----
  496. 0.000
  497.  
  498. -- part contents for card part 15
  499. ----- text -----
  500. 0.000
  501.  
  502. -- part contents for card part 16
  503. ----- text -----
  504. 1.000
  505.  
  506. -- part contents for card part 17
  507. ----- text -----
  508. 0
  509.  
  510. -- part contents for card part 18
  511. ----- text -----
  512. 0.0
  513.  
  514. -- part contents for card part 19
  515. ----- text -----
  516. 0